home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideoUtilities / background_2627.txt < prev    next >
Text File  |  1991-03-04  |  14KB  |  632 lines
  1. -- background: 2627 from stack: in
  2. -- bmap block id: 3225
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: calculator
  6. ----- HyperTalk script -----
  7.  
  8. function rawSeconds input
  9. get input
  10. convert it to seconds
  11. put the date into history
  12. convert history to seconds
  13. return it - history
  14. end rawSeconds
  15.  
  16. function stripExcess theTime
  17. get abs(theTime)
  18. convert it to long time
  19.  
  20. if char 1 to 3 of it is "12:" then delete char 1 to 3 of it
  21. delete char offset("m",it) - 2 to offset("m",it) of it
  22.  
  23. if theTime < 0 then return "-" & it
  24. else return it
  25. end stripExcess
  26.  
  27.  
  28.  
  29.  
  30. -- part 1 (field)
  31. -- low flags: 00
  32. -- high flags: 4002
  33. -- rect: left=22 top=55 right=213 bottom=190
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 10
  39. -- style flags: 0
  40. -- line height: 13
  41. -- part name: SelectionsA
  42.  
  43.  
  44. -- part 2 (field)
  45. -- low flags: 00
  46. -- high flags: 4002
  47. -- rect: left=192 top=55 right=69 bottom=245
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 65535
  51. -- font id: 3
  52. -- text size: 10
  53. -- style flags: 0
  54. -- line height: 13
  55. -- part name: SelTimesA 1
  56. ----- HyperTalk script -----
  57. on returnInField
  58.   click at the location of field "SelTimesA 2"
  59. end returnInField
  60.  
  61.  
  62.  
  63. -- part 3 (field)
  64. -- low flags: 01
  65. -- high flags: 0002
  66. -- rect: left=192 top=215 right=230 bottom=245
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 65535
  70. -- font id: 3
  71. -- text size: 10
  72. -- style flags: 0
  73. -- line height: 13
  74. -- part name: AccumTimeA
  75.  
  76.  
  77. -- part 4 (field)
  78. -- low flags: 01
  79. -- high flags: 0002
  80. -- rect: left=192 top=232 right=247 bottom=245
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 65535
  84. -- font id: 3
  85. -- text size: 10
  86. -- style flags: 0
  87. -- line height: 13
  88. -- part name: TimeLeftA
  89.  
  90.  
  91. -- part 6 (field)
  92. -- low flags: 00
  93. -- high flags: 4002
  94. -- rect: left=288 top=55 right=213 bottom=456
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 0
  98. -- font id: 3
  99. -- text size: 10
  100. -- style flags: 0
  101. -- line height: 13
  102. -- part name: SelectionsB
  103.  
  104.  
  105. -- part 7 (field)
  106. -- low flags: 00
  107. -- high flags: 4002
  108. -- rect: left=458 top=55 right=70 bottom=512
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 65535
  112. -- font id: 3
  113. -- text size: 10
  114. -- style flags: 0
  115. -- line height: 13
  116. -- part name: SelTimesB 1
  117. ----- HyperTalk script -----
  118. on returnInField
  119.   click at the location of field "SelTimesB 2"
  120. end returnInField
  121.  
  122.  
  123. -- part 8 (field)
  124. -- low flags: 01
  125. -- high flags: 0002
  126. -- rect: left=458 top=215 right=230 bottom=512
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 65535
  130. -- font id: 3
  131. -- text size: 10
  132. -- style flags: 0
  133. -- line height: 13
  134. -- part name: AccumTimeB
  135.  
  136.  
  137. -- part 9 (field)
  138. -- low flags: 01
  139. -- high flags: 0002
  140. -- rect: left=458 top=232 right=247 bottom=512
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 65535
  144. -- font id: 3
  145. -- text size: 10
  146. -- style flags: 0
  147. -- line height: 13
  148. -- part name: TimeLeftB
  149.  
  150.  
  151. -- part 11 (field)
  152. -- low flags: 01
  153. -- high flags: 0002
  154. -- rect: left=453 top=5 right=20 bottom=512
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 3
  159. -- text size: 10
  160. -- style flags: 256
  161. -- line height: 13
  162. -- part name: TapeLength
  163. ----- HyperTalk script -----
  164. on mouseDown
  165.   put "30 min;45 min;60 min;75 min;80 min;90 min;" & "100 min;110 min;120 min" into choices
  166.  
  167.   put the value of 1 into lastItem
  168.   get topLeft of target
  169.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  170.  
  171.   if the result is not empty then put the result
  172.  
  173.   if item 1 of it is not empty then
  174.     put item 1 of it into bkgnd fld "TapeLength"
  175.   end if
  176.   click at location of button "calculate"
  177. end mouseDown
  178.  
  179.  
  180. -- part 12 (field)
  181. -- low flags: 00
  182. -- high flags: 4002
  183. -- rect: left=192 top=68 right=83 bottom=245
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 65535
  187. -- font id: 3
  188. -- text size: 10
  189. -- style flags: 0
  190. -- line height: 13
  191. -- part name: SelTimesA 2
  192. ----- HyperTalk script -----
  193. on returnInField
  194.   click at the location of field "SelTimesA 3"
  195. end returnInField
  196.  
  197.  
  198.  
  199. -- part 13 (field)
  200. -- low flags: 00
  201. -- high flags: 4002
  202. -- rect: left=192 top=81 right=96 bottom=245
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 65535
  206. -- font id: 3
  207. -- text size: 10
  208. -- style flags: 0
  209. -- line height: 13
  210. -- part name: SelTimesA 3
  211. ----- HyperTalk script -----
  212. on returnInField
  213.   click at the location of field "SelTimesA 4"
  214. end returnInField
  215.  
  216.  
  217.  
  218. -- part 14 (field)
  219. -- low flags: 00
  220. -- high flags: 4002
  221. -- rect: left=192 top=94 right=109 bottom=245
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 65535
  225. -- font id: 3
  226. -- text size: 10
  227. -- style flags: 0
  228. -- line height: 13
  229. -- part name: SelTimesA 4
  230. ----- HyperTalk script -----
  231. on returnInField
  232.   click at the location of field "SelTimesA 5"
  233. end returnInField
  234.  
  235.  
  236.  
  237. -- part 15 (field)
  238. -- low flags: 00
  239. -- high flags: 4002
  240. -- rect: left=192 top=107 right=122 bottom=245
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 65535
  244. -- font id: 3
  245. -- text size: 10
  246. -- style flags: 0
  247. -- line height: 13
  248. -- part name: SelTimesA 5
  249. ----- HyperTalk script -----
  250. on returnInField
  251.   click at the location of field "SelTimesA 6"
  252. end returnInField
  253.  
  254.  
  255.  
  256. -- part 16 (field)
  257. -- low flags: 00
  258. -- high flags: 4002
  259. -- rect: left=192 top=120 right=136 bottom=245
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 65535
  263. -- font id: 3
  264. -- text size: 10
  265. -- style flags: 0
  266. -- line height: 13
  267. -- part name: SelTimesA 6
  268. ----- HyperTalk script -----
  269. on returnInField
  270.   click at the location of field "SelTimesA 7"
  271. end returnInField
  272.  
  273.  
  274.  
  275. -- part 17 (field)
  276. -- low flags: 00
  277. -- high flags: 4002
  278. -- rect: left=192 top=133 right=148 bottom=245
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 65535
  282. -- font id: 3
  283. -- text size: 10
  284. -- style flags: 0
  285. -- line height: 13
  286. -- part name: SelTimesA 7
  287. ----- HyperTalk script -----
  288. on returnInField
  289.   click at the location of field "SelTimesA 8"
  290. end returnInField
  291.  
  292.  
  293.  
  294. -- part 18 (field)
  295. -- low flags: 00
  296. -- high flags: 4002
  297. -- rect: left=192 top=146 right=161 bottom=245
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 65535
  301. -- font id: 3
  302. -- text size: 10
  303. -- style flags: 0
  304. -- line height: 13
  305. -- part name: SelTimesA 8
  306. ----- HyperTalk script -----
  307. on returnInField
  308.   click at the location of field "SelTimesA 9"
  309. end returnInField
  310.  
  311.  
  312.  
  313. -- part 19 (field)
  314. -- low flags: 00
  315. -- high flags: 4002
  316. -- rect: left=192 top=159 right=173 bottom=245
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 65535
  320. -- font id: 3
  321. -- text size: 10
  322. -- style flags: 0
  323. -- line height: 13
  324. -- part name: SelTimesA 9
  325. ----- HyperTalk script -----
  326. on returnInField
  327.   click at the location of field "SelTimesA 10"
  328. end returnInField
  329.  
  330.  
  331.  
  332. -- part 20 (field)
  333. -- low flags: 00
  334. -- high flags: 4002
  335. -- rect: left=192 top=172 right=191 bottom=245
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 65535
  339. -- font id: 3
  340. -- text size: 10
  341. -- style flags: 0
  342. -- line height: 13
  343. -- part name: SelTimesA 10
  344. ----- HyperTalk script -----
  345. on returnInField
  346.   click at the location of field "SelTimesA 11"
  347. end returnInField
  348.  
  349.  
  350.  
  351. -- part 21 (field)
  352. -- low flags: 00
  353. -- high flags: 4002
  354. -- rect: left=192 top=185 right=201 bottom=245
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 0 / 0
  357. -- text alignment: 65535
  358. -- font id: 3
  359. -- text size: 10
  360. -- style flags: 0
  361. -- line height: 13
  362. -- part name: SelTimesA 11
  363. ----- HyperTalk script -----
  364. on returnInField
  365.   click at the location of field "SelTimesA 12"
  366. end returnInField
  367.  
  368.  
  369.  
  370. -- part 22 (field)
  371. -- low flags: 00
  372. -- high flags: 4002
  373. -- rect: left=192 top=198 right=213 bottom=245
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 65535
  377. -- font id: 3
  378. -- text size: 10
  379. -- style flags: 0
  380. -- line height: 13
  381. -- part name: SelTimesA 12
  382. ----- HyperTalk script -----
  383. on returnInField
  384.   closeField
  385. end returnInField
  386.  
  387.  
  388.  
  389. -- part 23 (field)
  390. -- low flags: 00
  391. -- high flags: 4002
  392. -- rect: left=458 top=68 right=83 bottom=512
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 65535
  396. -- font id: 3
  397. -- text size: 10
  398. -- style flags: 0
  399. -- line height: 13
  400. -- part name: SelTimesB 2
  401. ----- HyperTalk script -----
  402. on returnInField
  403.   click at the location of field "SelTimesB 3"
  404. end returnInField
  405.  
  406.  
  407. -- part 24 (field)
  408. -- low flags: 00
  409. -- high flags: 4002
  410. -- rect: left=458 top=81 right=96 bottom=512
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 65535
  414. -- font id: 3
  415. -- text size: 10
  416. -- style flags: 0
  417. -- line height: 13
  418. -- part name: SelTimesB 3
  419. ----- HyperTalk script -----
  420. on returnInField
  421.   click at the location of field "SelTimesB 4"
  422. end returnInField
  423.  
  424.  
  425. -- part 25 (field)
  426. -- low flags: 00
  427. -- high flags: 4002
  428. -- rect: left=458 top=94 right=109 bottom=512
  429. -- title width / last selected line: 0
  430. -- icon id / first selected line: 0 / 0
  431. -- text alignment: 65535
  432. -- font id: 3
  433. -- text size: 10
  434. -- style flags: 0
  435. -- line height: 13
  436. -- part name: SelTimesB 4
  437. ----- HyperTalk script -----
  438. on returnInField
  439.   click at the location of field "SelTimesB 5"
  440. end returnInField
  441.  
  442.  
  443. -- part 26 (field)
  444. -- low flags: 00
  445. -- high flags: 4002
  446. -- rect: left=458 top=107 right=122 bottom=512
  447. -- title width / last selected line: 0
  448. -- icon id / first selected line: 0 / 0
  449. -- text alignment: 65535
  450. -- font id: 3
  451. -- text size: 10
  452. -- style flags: 0
  453. -- line height: 13
  454. -- part name: SelTimesB 5
  455. ----- HyperTalk script -----
  456. on returnInField
  457.   click at the location of field "SelTimesB 6"
  458. end returnInField
  459.  
  460.  
  461. -- part 27 (field)
  462. -- low flags: 00
  463. -- high flags: 4002
  464. -- rect: left=458 top=120 right=135 bottom=512
  465. -- title width / last selected line: 0
  466. -- icon id / first selected line: 0 / 0
  467. -- text alignment: 65535
  468. -- font id: 3
  469. -- text size: 10
  470. -- style flags: 0
  471. -- line height: 13
  472. -- part name: SelTimesB 6
  473. ----- HyperTalk script -----
  474. on returnInField
  475.   click at the location of field "SelTimesB 7"
  476. end returnInField
  477.  
  478.  
  479. -- part 28 (field)
  480. -- low flags: 00
  481. -- high flags: 4002
  482. -- rect: left=458 top=133 right=148 bottom=512
  483. -- title width / last selected line: 0
  484. -- icon id / first selected line: 0 / 0
  485. -- text alignment: 65535
  486. -- font id: 3
  487. -- text size: 10
  488. -- style flags: 0
  489. -- line height: 13
  490. -- part name: SelTimesB 7
  491. ----- HyperTalk script -----
  492. on returnInField
  493.   click at the location of field "SelTimesB 8"
  494. end returnInField
  495.  
  496.  
  497. -- part 29 (field)
  498. -- low flags: 00
  499. -- high flags: 4002
  500. -- rect: left=458 top=146 right=161 bottom=512
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 0 / 0
  503. -- text alignment: 65535
  504. -- font id: 3
  505. -- text size: 10
  506. -- style flags: 0
  507. -- line height: 13
  508. -- part name: SelTimesB 8
  509. ----- HyperTalk script -----
  510. on returnInField
  511.   click at the location of field "SelTimesB 9"
  512. end returnInField
  513.  
  514.  
  515. -- part 30 (field)
  516. -- low flags: 00
  517. -- high flags: 4002
  518. -- rect: left=458 top=159 right=174 bottom=512
  519. -- title width / last selected line: 0
  520. -- icon id / first selected line: 0 / 0
  521. -- text alignment: 65535
  522. -- font id: 3
  523. -- text size: 10
  524. -- style flags: 0
  525. -- line height: 13
  526. -- part name: SelTimesB 9
  527. ----- HyperTalk script -----
  528. on returnInField
  529.   click at the location of field "SelTimesB 10"
  530. end returnInField
  531.  
  532.  
  533. -- part 31 (field)
  534. -- low flags: 00
  535. -- high flags: 4002
  536. -- rect: left=458 top=172 right=187 bottom=512
  537. -- title width / last selected line: 0
  538. -- icon id / first selected line: 0 / 0
  539. -- text alignment: 65535
  540. -- font id: 3
  541. -- text size: 10
  542. -- style flags: 0
  543. -- line height: 13
  544. -- part name: SelTimesB 10
  545. ----- HyperTalk script -----
  546. on returnInField
  547.   click at the location of field "SelTimesB 11"
  548. end returnInField
  549.  
  550.  
  551. -- part 32 (field)
  552. -- low flags: 00
  553. -- high flags: 4002
  554. -- rect: left=458 top=185 right=200 bottom=512
  555. -- title width / last selected line: 0
  556. -- icon id / first selected line: 0 / 0
  557. -- text alignment: 65535
  558. -- font id: 3
  559. -- text size: 10
  560. -- style flags: 0
  561. -- line height: 13
  562. -- part name: SelTimesB 11
  563. ----- HyperTalk script -----
  564. on returnInField
  565.   click at the location of field "SelTimesB 12"
  566. end returnInField
  567.  
  568.  
  569. -- part 33 (field)
  570. -- low flags: 00
  571. -- high flags: 4002
  572. -- rect: left=458 top=198 right=213 bottom=512
  573. -- title width / last selected line: 0
  574. -- icon id / first selected line: 0 / 0
  575. -- text alignment: 65535
  576. -- font id: 3
  577. -- text size: 10
  578. -- style flags: 0
  579. -- line height: 13
  580. -- part name: SelTimesB 12
  581. ----- HyperTalk script -----
  582. on returnInField
  583.   click at the location of field "SelTimesB 1"
  584. end returnInField
  585.  
  586.  
  587. -- part 36 (field)
  588. -- low flags: 00
  589. -- high flags: 0000
  590. -- rect: left=334 top=320 right=334 bottom=391
  591. -- title width / last selected line: 0
  592. -- icon id / first selected line: 0 / 0
  593. -- text alignment: 1
  594. -- font id: 3
  595. -- text size: 10
  596. -- style flags: 2304
  597. -- line height: 13
  598. -- part name: newCalc
  599.  
  600.  
  601. -- part 37 (button)
  602. -- low flags: 00
  603. -- high flags: 2000
  604. -- rect: left=86 top=302 right=333 bottom=128
  605. -- title width / last selected line: 0
  606. -- icon id / first selected line: 0 / 0
  607. -- text alignment: 1
  608. -- font id: 0
  609. -- text size: 12
  610. -- style flags: 0
  611. -- line height: 16
  612. -- part name: CDswitch
  613. ----- HyperTalk script -----
  614. on mouseUp
  615.   go to any card of background "CD" of stack "AudioVideo Library"
  616. end mouseUp
  617.  
  618.  
  619.  
  620. -- part 38 (field)
  621. -- low flags: 00
  622. -- high flags: 0000
  623. -- rect: left=337 top=292 right=308 bottom=391
  624. -- title width / last selected line: 0
  625. -- icon id / first selected line: 0 / 0
  626. -- text alignment: 1
  627. -- font id: 3
  628. -- text size: 10
  629. -- style flags: 2304
  630. -- line height: 13
  631. -- part name: master
  632.